home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_85 / patience.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  19KB  |  125 lines
  1. 10 KEY
  2. 100 VARNAME
  3. 1000 FOR
  4. 1010 VARNAME
  5. 110 INC
  6. 1100 VARNAME
  7. 1110 VARNAME
  8. 1120 BAR
  9. 1130 VARNAME
  10. 1140 SET ZONE
  11. 120 NEXT
  12. 1200 VARNAME
  13. 1210 SPRITE
  14. 1220 SPRITE
  15. 1230 SPRITE
  16. 1240 SPRITE
  17. 1250 SPRITE
  18. 1260 SPRITE
  19. 1270 SET ZONE
  20. 1280 VARNAME
  21. 1290 SET ZONE
  22. 130 FOR
  23. 1300 LOCATE
  24. 1310 CENTRE
  25. 1320 CLW
  26. 1330 LOCATE
  27. 1340 CDOWN
  28. 1350 BOOM
  29. 140 SET ZONE
  30. 1400 CLW
  31. 1410 IF
  32. 1420 IF
  33. 1430 BELL
  34. 1440 CLW
  35. 1450 CDOWN
  36. 1460 REPEAT
  37. 1470 CENTRE
  38. 1480 CDOWN
  39. 1490 REPEAT
  40. 150 SET ZONE
  41. 1500 CLW
  42. 1510 CENTRE
  43. 160 SET ZONE
  44. 1600 DATA
  45. 1610 DATA
  46. 170 VARNAME
  47. 180 FOR
  48. 20 DIM
  49. 200 SHOW
  50. 210 VARNAME
  51. 220 IF
  52. 230 UNTIL
  53. 240 REPEAT
  54. 250 VARNAME
  55. 260 NEXT
  56. 30 VARNAME
  57. 300 IF
  58. 310 VARNAME
  59. 320 IF
  60. 330 IF
  61. 340 IF
  62. 350 IF
  63. 360 IF
  64. 40 COLOUR
  65. 400 LOCATE
  66. 410 REPEAT
  67. 420 IF
  68. 430 IF
  69. 440 UNTIL
  70. 50 FOR
  71. 500 VARNAME
  72. 510 VARNAME
  73. 520 IF
  74. 530 VARNAME
  75. 540 IF
  76. 550 INC
  77. 560 FOR
  78. 570 VARNAME
  79. 580 SPRITE
  80. 590 UPDATE
  81. 60 WINDOPEN
  82. 600 VARNAME
  83. 610 IF
  84. 620 REPEAT
  85. 630 VARNAME
  86. 640 IF
  87. 650 IF
  88. 660 QWINDOW
  89. 670 VARNAME
  90. 680 SET ZONE
  91. 690 SET ZONE
  92. 70 FOR
  93. 700 DEC
  94. 710 IF
  95. 720 BAR
  96. 730 FOR
  97. 740 VARNAME
  98. 750 SET ZONE
  99. 760 IF
  100. 770 VARNAME
  101. 780 BAR
  102. 790 VARNAME
  103. 80 FOR
  104. 800 VARNAME
  105. 810 VARNAME
  106. 820 REPEAT
  107. 830 REPEAT
  108. 840 VARNAME
  109. 850 BAR
  110. 860 VARNAME
  111. 870 SET ZONE
  112. 880 REPEAT
  113. 890 VARNAME
  114. 90 BAR
  115. 900 IF
  116. 910 SET ZONE
  117. 920 VARNAME
  118. 930 IF
  119. 940 IF
  120. 950 BAR
  121. 960 VARNAME
  122. 970 VARNAME
  123. 980 VARNAME
  124. 990 SET ZONE
  125.